﻿Imports Cls_Common
Partial Class Page_WhatCookToDay_Index
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Page.Title = "Nấu gì hôm nay"
        Page.MetaDescription = "Bí quyết nấu những món ăn ngon khắp mọi miền từ dễ đến khó."
        If Not Page.RouteData.Values("MenuId") Is Nothing Then
            Dim iMenuId As Integer = Page.RouteData.Values("MenuId")
            'Call SetTitleAndMetadescriptionPage(iMenuId)

            'Page.Title = sMetaTitle
            'Page.MetaDescription = smetaDescription
            ''Facebook Tag
            'Dim metaTagTitle As New HtmlMeta
            'metaTagTitle.Attributes.Add("property", "og:title")
            'metaTagTitle.Attributes.Add("content", sMetaTitle)
            'Page.Header.Controls.RemoveAt(5)
            'Page.Header.Controls.AddAt(5, metaTagTitle)

            'Dim metaTagUrl As New HtmlMeta
            'metaTagUrl.Attributes.Add("property", "og:url")
            'metaTagUrl.Attributes.Add("content", HttpContext.Current.Request.Url.AbsoluteUri)
            'Page.Header.Controls.RemoveAt(7)
            'Page.Header.Controls.AddAt(7, metaTagUrl)

            'Dim metaTagDesc As New HtmlMeta
            'metaTagDesc.Attributes.Add("property", "og:description")
            'metaTagDesc.Attributes.Add("content", smetaDescription)
            'Page.Header.Controls.RemoveAt(10)
            'Page.Header.Controls.AddAt(10, metaTagDesc)
        End If
    End Sub
End Class
